home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / lzsslib.zip / LZSSTEST.PAS < prev    next >
Pascal/Delphi Source File  |  1991-12-17  |  2KB  |  58 lines
  1. Program LZSSTEST;
  2.  
  3. {$D LZSSTEST.EXE - ⌐ Copyright 1991,92 Robert Salesas, All Rights Reserved.}
  4. {$I-}
  5. {$M 6000,4412
  6. {$C Demandload Discardable}
  7. {
  8. ********************************************************************
  9. *               LZSS Compression/Decompression Tester              *
  10. ********************************************************************
  11. *     Copyright 1991-92 Robert Salesas, All Rights Reserved        *
  12. ********************************************************************
  13. *      Version: 1.00             Author:  Robert Salesas           *
  14. *      Date:    06-Dec-1991      Changes: Original                 *
  15. *                                                                  *
  16. ********************************************************************
  17. }
  18.  
  19. Uses WinProcs, WinTypes, WinDOS, Strings;
  20.  
  21.  
  22.  
  23.   Function LZSSPackFile(SrcFile, DstFile : PChar) : Integer;  Far;
  24.     External 'EDILZSSA' Index 100;
  25.  
  26.   Function LZSSUnPackFile(SrcFile, DstFile : PChar) : Integer;  Far;
  27.     External 'EDILZSSA' Index 200;
  28.  
  29.  
  30. Var
  31.   InFile,
  32.   OutFile : Array [0..255] Of Char;
  33.   Switch  : Array [0..0] Of Char;
  34.  
  35. Begin
  36.   If (ParamCount < 3) Then
  37.     MessageBox(0, 'USAGE:  LZSSTEST e|d infile outfile', 'EDI LZSS TEST',
  38.                mb_IconInformation Or mb_Ok)
  39.   Else
  40.     Begin
  41.       StrUpper(StrPCopy(Switch, ParamStr(1)));
  42.       StrPCopy(Infile, ParamStr(2));
  43.       StrPCopy(Outfile, ParamStr(3));
  44.  
  45.       If (Switch[0] = 'E') Then
  46.         DOSError := LZSSPackFile(Infile, Outfile)
  47.       Else If (Switch[0] = 'D') Then
  48.         DOSError := LZSSUnPackFile(Infile, Outfile);
  49.  
  50.       If (DOSError <> 0) Then
  51.         MessageBox(0, 'Error #--, unable to complete operation.', 'EDI LZSS TEST',
  52.                    mb_IconStop Or mb_Ok)
  53.       Else
  54.         MessageBox(0, 'All done.', 'LZSSTEST', mb_IconExclamation Or mb_Ok);
  55.     End;
  56. End. {LZSSTEST}
  57.  
  58.